Usenet 1993 July

home *** CD-ROM | disk | FTP | other *** search

/ Usenet 1993 July / InfoMagic USENET CD-ROM July 1993.ISO / sources / unix / volume21 / rayshade / part01 next >

Wrap

Internet Message Format | 1990-03-21 | 59.9 KB

Subject: v21i008: A ray tracing program, Part01/08 Newsgroups: comp.sources.unix Sender: sources Approved: rsalz@uunet.UU.NET Submitted-by: Craig Kolb <craig@weedeater.math.yale.edu> Posting-number: Volume 21, Issue 8 Archive-name: rayshade/part01 This is version 3.0 of rayshade, a raytracing program. Rayshade reads a multi-line ASCII file describing a scene to be rendered and produces a Utah Raster RLE format file of the raytraced image. Rayshade features: Eight types of primitives (box, cone, cylinder, height field, polygon, sphere, superquadric, flat- and Phong-shaded triangle) Composite objects Point, directional, and extended (area) light sources Solid procedural texturing and bump mapping of primitives, objects, and individual instances of objects Antialiasing through adaptive supersampling or "jittered" sampling Arbitrary linear transformations on primitives, instances of objects, and texture/bump maps Use of uniform spatial subdivision or hierarchy of bounding volumes to speed rendering Options to facilitate rendering of stereo pairs Support for the C-Linda parallel programming language Rayshade has been tested on many different UNIX-based computers. If your machine has a C compiler and enough memory (at least 2Mb), rayshade should be fairly easy to port. Be warned that rayshade uses yacc and lex to process input files. If you do not have lex and yacc, try to get flex and bison from the Free Software Foundation folks (ftp to prep.ai.mit.edu). Thanks, Craig kolb@yale.edu #! /bin/sh # This is a shell archive. Remove anything before this line, then unpack # it by saving it into a file and typing "sh file". To overwrite existing # files, type "sh file -c". You can also feed this as standard input via # unshar, or by typing "sh <file", e.g.. If this archive is complete, you # will see the following message at the end: # "End of archive 1 (of 8)." # Contents: Changes Copyright Examples Examples/balls.ray # Examples/planet.map Examples/planet.ray Examples/solids.ray # MANIFEST README References TODO doc src src/atmosphere.c src/box.c # src/constants.h src/defaults.h src/input_lex.l src/memory.c # src/patchlevel.h src/plane.c src/raymath.c src/raytrace.h # src/texture.h src/typedefs.h src/version.c src/viewing.c PATH=/bin:/usr/bin:/usr/ucb ; export PATH if test -f 'Changes' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Changes'\" else echo shar: Extracting \"'Changes'\" $1251 characters$ sed "s/^X//" >'Changes' <<'END_OF_FILE' XBugfixes X-------- X XWas possible to divide by zero in main.c and intersect.c. XSuperquadric normals were sometimes unnecessarily flipped. XFog and mist should be applied after shading calculations. XReading colormap file with > 256 entries dumped core. XCouldn't comment out slashes. XRemoved check of dotp(ray, norm) in shade(). XAdded check for s < lightdist in inshadow(). XVarious problems in grid.c. X XPortability Changes X------------------- X XCalculation of index in poly.c and triangle.c was non-portable. XSome code in intersect.c was apparently non-portable. XModified functions to no longer return structures. X XMisc. Changes X------------- X XNo longer need use "endfile" keyword at the end of input files. XAdded adaptive ray tree pruning and -T option. XCombined -R, -G and -B options into -C option. XAdded -R option. XOptimization of IntBounds(). XMerged int_grid() and DDA(). XAdded "samples", "jittered", "cutoff", "contrast" and "adaptive" keywords. XFlat-shaded triangles now require less storage space. XShadow caching is now the default. XThe number of shadow cache hits are reported. XShadow cache hits are counted as "shadow rays". XShadow hits are counted as "intersecting rays". XThe number of shadow hits is reported. XVarious cleanups courtesy of lint. END_OF_FILE if test 1251 -ne `wc -c <'Changes'`; then echo shar: \"'Changes'\" unpacked with wrong size! fi # end of 'Changes' fi if test -f 'Copyright' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Copyright'\" else echo shar: Extracting \"'Copyright'\" $806 characters$ sed "s/^X//" >'Copyright' <<'END_OF_FILE' X/* X * Copyright (C) 1989, Craig E. Kolb X * X * This software may be freely copied, modified, and redistributed, X * provided that this copyright notice is preserved on all copies. X * X * There is no warranty or other guarantee of fitness for this software, X * it is provided solely "as is". Bug reports or fixes may be sent X * to the author, who may or may not act on them as he desires. X * X * You may not include this software in a program or other software product X * without supplying the source, or without informing the end-user that the X * source is available for no extra charge. X * X * If you modify this software, you should include a notice giving the X * name of the person performing the modification, the date of modification, X * and the reason for such modification. X * X * $Id$ X * X * $Log$ X */ END_OF_FILE if test 806 -ne `wc -c <'Copyright'`; then echo shar: \"'Copyright'\" unpacked with wrong size! fi # end of 'Copyright' fi if test ! -d 'Examples' ; then echo shar: Creating directory \"'Examples'\" mkdir 'Examples' fi if test -f 'Examples/balls.ray' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Examples/balls.ray'\" else echo shar: Extracting \"'Examples/balls.ray'\" $915 characters$ sed "s/^X//" >'Examples/balls.ray' <<'END_OF_FILE' X/* X * This file is the result of feeding "balls" from Eric Haines' X * SPD through nff2shade.awk and then hand-tweaking things. X */ Xmaxdepth 3 Xeyep 2.1 1.3 1.7 Xlookp 0 0 0 Xup 0 0 1 Xfov 45 Xscreen 256 256 Xbackground 0.078 0.361 0.753 Xsurface s1 0.15 0.1 0.045 1. 0.75 0.33 0. 0. 0. 0. 0. 0. 0. Xplane s1 0 0 1 0 0 -.5 Xsurface s2 0.035 0.0325 0.025 0.5 0.45 0.35 0.8 0.8 0.8 3. 0.5 0. 0. Xsphere s2 0.5 0 0 0 texture bump 0.3 scale 0.04 0.04 0.04 Xsphere s2 0.166667 0.272166 0.272166 0.544331 Xsphere s2 0.166667 0.643951 0.172546 0 Xsphere s2 0.166667 0.172546 0.643951 0 Xsphere s2 0.166667 -0.371785 0.0996195 0.544331 Xsphere s2 0.166667 -0.471405 0.471405 0 Xsphere s2 0.166667 -0.643951 -0.172546 0 Xsphere s2 0.166667 0.0996195 -0.371785 0.544331 Xsphere s2 0.166667 -0.172546 -0.643951 0 Xsphere s2 0.166667 0.471405 -0.471405 0 Xlight 0.288675 point 4 3 2 Xlight 0.288675 point 1 -4 4 Xlight 0.288675 point -3 1 5 END_OF_FILE if test 915 -ne `wc -c <'Examples/balls.ray'`; then echo shar: \"'Examples/balls.ray'\" unpacked with wrong size! fi # end of 'Examples/balls.ray' fi if test -f 'Examples/planet.map' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Examples/planet.map'\" else echo shar: Extracting \"'Examples/planet.map'\" $2551 characters$ sed "s/^X//" >'Examples/planet.map' <<'END_OF_FILE' X40 128 200 X40 128 200 X41 129 201 X42 130 202 X43 131 202 X44 132 203 X45 133 204 X46 134 204 X47 135 205 X48 136 206 X48 136 206 X49 137 207 X50 138 208 X51 139 209 X52 140 209 X53 141 210 X54 142 211 X55 143 211 X56 144 212 X57 145 213 X57 145 213 X58 146 214 X59 147 215 X60 148 216 X61 149 216 X62 150 217 X63 151 218 X64 152 218 X65 153 219 X66 154 220 X66 154 220 X67 155 221 X68 156 222 X69 157 222 X70 158 223 X71 159 224 X72 160 225 X73 161 225 X74 162 226 X75 163 227 X75 163 227 X76 164 228 X77 165 229 X78 166 229 X79 167 230 X80 168 231 X81 169 232 X82 170 232 X83 171 233 X84 172 234 X84 172 234 X85 173 235 X86 174 236 X87 175 236 X88 176 237 X89 177 238 X90 178 238 X91 179 239 X92 180 240 X93 181 241 X93 181 241 X94 182 242 X95 183 243 X96 184 243 X97 185 244 X98 186 245 X99 187 245 X100 188 246 X101 189 247 X102 190 248 X102 190 248 X103 191 249 X104 192 250 X105 193 250 X106 194 251 X107 195 252 X108 196 252 X109 197 253 X110 198 254 X111 199 255 X244 211 1 X240 211 1 X237 211 1 X234 211 1 X231 211 1 X228 211 1 X224 211 1 X221 211 1 X218 211 1 X215 211 1 X212 211 1 X209 211 1 X205 211 1 X202 211 1 X199 211 1 X196 211 1 X193 211 1 X190 211 1 X186 211 1 X183 211 1 X180 211 1 X177 211 1 X174 211 1 X171 211 1 X132 208 1 X129 206 1 X125 204 1 X122 201 1 X119 199 1 X115 197 1 X112 194 1 X108 192 1 X105 190 1 X102 187 1 X98 185 1 X95 183 1 X91 180 1 X88 178 1 X84 176 1 X81 173 1 X78 171 1 X74 169 1 X71 166 1 X67 164 1 X64 162 1 X61 159 1 X57 157 1 X54 155 1 X50 152 1 X47 150 1 X44 148 1 X40 145 1 X37 143 1 X33 141 1 X30 138 1 X27 136 1 X23 134 1 X20 131 1 X16 129 1 X13 127 1 X10 124 1 X6 122 1 X3 120 1 X0 118 1 X3 116 1 X6 115 1 X9 113 1 X12 112 1 X15 110 1 X18 109 1 X21 107 1 X25 106 1 X28 104 1 X31 103 1 X34 101 1 X37 100 1 X40 98 1 X43 97 1 X46 96 1 X50 94 1 X53 93 1 X56 91 1 X59 90 1 X62 88 1 X65 87 1 X68 85 1 X71 84 1 X75 82 1 X78 81 1 X81 79 1 X84 78 1 X87 77 1 X90 75 1 X93 74 1 X96 72 1 X100 71 1 X103 69 1 X106 68 1 X109 66 1 X112 65 1 X115 63 1 X118 62 1 X122 61 1 X121 61 1 X120 61 1 X118 60 1 X117 60 1 X115 59 1 X114 59 1 X113 59 1 X111 58 1 X110 58 1 X109 58 1 X111 59 1 X114 60 1 X116 62 1 X119 63 1 X121 65 1 X124 66 1 X126 68 1 X129 69 1 X131 71 1 X134 72 1 X136 74 1 X139 75 1 X141 77 1 X144 78 1 X147 80 1 X149 81 1 X152 83 1 X154 84 1 X157 86 1 X159 87 1 X162 89 1 X164 90 1 X167 92 1 X169 93 1 X172 95 1 X174 96 1 X177 98 1 X180 99 1 X182 101 1 X185 102 1 X187 104 1 X190 105 1 X192 107 1 X195 108 1 X197 110 1 X200 111 1 X202 113 1 X205 114 1 X207 116 1 X210 117 1 X213 119 2 X210 120 9 X208 122 16 X205 124 23 X203 126 30 X200 128 37 X198 129 44 X195 131 51 X193 133 59 X190 135 66 X188 137 73 X186 138 80 X183 140 87 X181 142 94 X178 144 101 X176 146 109 X173 148 116 X254 255 255 X254 255 254 X254 255 254 X254 255 253 X254 255 253 X254 255 253 END_OF_FILE if test 2551 -ne `wc -c <'Examples/planet.map'`; then echo shar: \"'Examples/planet.map'\" unpacked with wrong size! fi # end of 'Examples/planet.map' fi if test -f 'Examples/planet.ray' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Examples/planet.ray'\" else echo shar: Extracting \"'Examples/planet.ray'\" $427 characters$ sed "s/^X//" >'Examples/planet.ray' <<'END_OF_FILE' X/* X * Example rayshade input file describing a single texture-mapped sphere. X * X * C. Kolb 9/89 X */ Xscreen 256 256 Xlight 1.0 0.9 0.8 directional 1. -1. 1. Xeyep 0. -4. 0. Xsurface basesurf .16 .15 .14 .8 .75 .7 0 0 0 0 0 0 0 Xsphere basesurf 1.0 0 0 0 X texture fbm 0. /* offset */ X 1. /* scale */ X 0.3 /* h */ X 2.0 /* lambda */ X 6 /* octaves */ X -.2 /* thresh */ X planet.map /* mapname */ X scale 0.7 0.7 0.7 END_OF_FILE if test 427 -ne `wc -c <'Examples/planet.ray'`; then echo shar: \"'Examples/planet.ray'\" unpacked with wrong size! fi # end of 'Examples/planet.ray' fi if test -f 'Examples/solids.ray' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Examples/solids.ray'\" else echo shar: Extracting \"'Examples/solids.ray'\" $856 characters$ sed "s/^X//" >'Examples/solids.ray' <<'END_OF_FILE' X/* X * solids.ray X * X * Example rayshade input file. X * X * Render using: X * rayshade solids.ray > solids.rle X * X * For previewing purposes, you may wish to use the -P option. X * Craig Kolb 9/89 X */ Xeyep 0. 25. 7. Xscreen 128 128 Xjittered Xlight 1.4 extended -15. 20. 15. 1.4 Xsurface red .02 0 0 .5 0 0 .2 .2 .2 32. 0.5 0 0 Xsurface blacktile 0.01 0.015 0.01 0.02 0.03 0.02 0.3 0.35 0.3 30 0.33 0 0 Xsurface white .02 .02 .008 .5 .5 .25 0.8 0.8 0.8 18 0.2 0 0 Xsurface glass 0.02 0.02 0.02 0. 0. 0. 0.8 0.8 0.8 25 0.2 .3 1.15 X Xsphere red 4. 3 0 0 X/* X * Cone actually sticks through ground plane. This solves problems X * that arise when the bottom of the cone and the plane are coincident. X */ Xcone glass -5. 3 -4.1 -5. 3. 4. 4. 0. X Xplane white 0. 0. 1. 0. 0. -4. X texture marble scale 4. 4. 4. X texture checker blacktile translate 0. 0. 0.3 scale 4. 4. 4. END_OF_FILE if test 856 -ne `wc -c <'Examples/solids.ray'`; then echo shar: \"'Examples/solids.ray'\" unpacked with wrong size! fi # end of 'Examples/solids.ray' fi if test -f 'MANIFEST' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'MANIFEST'\" else echo shar: Extracting \"'MANIFEST'\" $3432 characters$ sed "s/^X//" >'MANIFEST' <<'END_OF_FILE' X File Name Archive # Description X----------------------------------------------------------- X BLURB.UTAH 3 Blurb from Utah Raster Toolkit X Changes 1 List of recent changes X Copyright 1 Copyright information X Examples 1 Example input files X Examples/balls.ray 1 Tweaked output from Eric Haines' SPD X Examples/planet.map 1 Colormap for planet image X Examples/planet.ray 1 Simple planet example X Examples/pool.ray 2 Pool table example X Examples/solids.ray 1 Transparency/reflectivity example X MANIFEST 1 This shipping list X README 1 General information X References 1 Publications of interest X TODO 1 List of suggested extensions X doc 1 Documentation directory X doc/primitive.ms 7 Tutorial on adding primitives X doc/rayshade.1 8 Rayshade man page X doc/texture.ms 5 Tutorial on adding textures X nff2shade.awk 2 Awk script to convert NFF-->rayshade X src 1 Source directory X src/Makefile 4 Make control file X src/atmosphere.c 1 Atmospheric effects X src/bounds.c 3 Bounding box routines X src/box.c 1 Box primitive X src/cone.c 3 Cone primitive X src/constants.h 1 Various constants X src/cylinder.c 3 Cylinder primitive X src/datatypes.h 2 Datatype definitions X src/defaults.h 1 Default values X src/funcdefs.h 2 Function declarations X src/grid.c 5 Ray/grid intersection X src/hf.c 6 Heightfield primitive X src/input.c 2 Routines to handle #include X src/input_lex.l 1 Lexical analysis X src/input_yacc.y 6 Parsing X src/intersect.c 3 Top-level intersection routines X src/light.c 3 Shadow generation X src/list.c 2 Ray/list intersection X src/main.c 2 Driving routine X src/malloc.c 4 A fast storage allocator X src/matrix.c 5 Matrix manipulation X src/memory.c 1 Memory management X src/noise.c 4 Perlin-style Noise and DNoise() X src/object.c 3 Misc. object functions X src/outputp.c 2 Image file interface X src/patchlevel.h 1 Patchlevel information X src/plane.c 1 Plane primitive X src/poly.c 4 Polygon primitive X src/primobj.h 2 Primitive object definitions X src/ray_options.c 3 Command line parsing X src/raymath.c 1 Vector functions X src/raytrace.c 6 Sampling/antialiasing X src/raytrace.h 1 Sampling patters X src/setup.c 2 Initialization X src/shade.c 5 Lighting calculations X src/sphere.c 2 Sphere primitive X src/superq.c 2 Superquadric primitive X src/surface.c 2 Surface & color functions X src/texture.c 4 Texturing & bump mapping X src/texture.h 1 Texture definitions X src/triangle.c 4 Triangle primitive X src/typedefs.h 1 Misc. typedefs X src/version.c 1 Version information X src/viewing.c 1 Viewing transformations X src/voxels.c 3 Voxel allocation & initialization END_OF_FILE if test 3432 -ne `wc -c <'MANIFEST'`; then echo shar: \"'MANIFEST'\" unpacked with wrong size! fi # end of 'MANIFEST' fi if test -f 'README' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'README'\" else echo shar: Extracting \"'README'\" $5201 characters$ sed "s/^X//" >'README' <<'END_OF_FILE' XThis is version 3.0 of rayshade, a raytracing program. Rayshade reads Xa multi-line ASCII file describing a scene to be rendered and produces Xa Utah Raster RLE format file of the raytraced image. X XRayshade features: X X Eight types of primitives (box, cone, cylinder, height field, X polygon, sphere, superquadric, flat- and Phong-shaded triangle) X X Composite objects X X Point, directional, and extended (area) light sources X X Solid procedural texturing and bump mapping of primitives, objects, X and individual instances of objects X X Antialiasing through adaptive supersampling or "jittered" sampling X X Arbitrary linear transformations on primitives, X instances of objects, and texture/bump maps X X Use of uniform spatial subdivision or hierarchy of bounding X volumes to speed rendering X X Options to facilitate rendering of stereo pairs X X Support for the C-Linda parallel programming language X X XThis version supersedes all previous versions, and it is to this release Xthat subsequent patches should be applied. X XRayshade has been tested on many different UNIX-based computers. If your Xmachine has a C compiler and enough memory (at least 2Mb), rayshade should Xbe fairly easy to port. Be warned that rayshade uses yacc and lex to Xprocess input files. If you do not have lex and yacc, try to get flex and Xbison from the Free Software Foundation folks (ftp to prep.ai.mit.edu). X XNormally, rayshade makes use of the Utah Raster toolkit. I strongly Xsuggest you get a copy of the toolkit, as it provides a host of useful tools Xfor image manipulation and a library for reading/reading the toolkit's X"RLE" format image files. UTAH.BLURB is the "blurb" file from the latest Xdistribution of the toolkit, which can be obtained via anonymous ftp from Xcs.utah.edu (128.110.4.21), weedeater.math.yale.edu (192.26.88.42), Xnl.cs.cmu.edu (128.22.222.56), and uunet.uu.net. Also of interest is the X"fbm" library, available from nl.cs.cmu.edu:/usr/mlm/ftp/fbm.tar.Z, which Xprovides tools for converting Utah Raster RLE format images to/from other Xformats. X XIf you do not want to or cannot use the Utah Raster toolkit, compile-time Xswitches are provided to create image files using a generic format very Xsimilar to that used by Mark VandeWettering's raytracer. See the Makefile Xand src/outputp.c for details. X XThe directory "src" contains the source to rayshade. To compile, edit the XMakefile in that directory and change include file and library paths and set XCFLAGS and LIBS to whatever is appropriate for your particular hardware/ Xsoftware configuration. X XThe file doc/rayshade.1 contains a brief manual page which covers most things Xa casual user will need to know in order to produce raytraced images. XA tutorial on adding new textures on rayshade is included in doc/texture.ms. XA similar document on adding new primitives to rayshade is in Xdoc/primitive.ms. Unfortunately, there is as yet no technical documentation. X XOnce you've compiled rayshade, you can test it using the example input Xfiles in the Examples directory. You can also run the output of XEric Haines' Standard Procedural Database through awk using the X"nff2shade.awk" script, and feed the results to rayshade. Note that for Xseveral of the databases, you will need to tweak the data a bit to achieve Xoptimal runtimes. See nff2shade.awk for details. X XRayshade was not designed to be, nor is it, the be-all and end-all of Xraytracers. It was meant to be reasonably fast, portable, and easy to Xmodify. It has some nice features which allow you to produce Xpretty pictures, but there are countless extensions, modifications, Xand improvements which could be made. There are many routines which may be Xoptimized and many features which could be added. For a list of suggested Ximprovements and projects see "TODO". You are encouraged to modify the Xsource code left and right. X XRayshade had its start as an "introductory" public domain raytracer written Xby Roman Kuchkuda. During 1987-88 the first version of rayshade was written Xby Craig Kolb, David P. Dobkin (the original cylinder, cone and extinct torus- Xtracing code), and David C. Hoffman (the original octree code). Craig Kolb Xwrote the current version of rayshade during the fall of 1988 and has made a Xlarge number of changes since then. X XThe current version of rayshade owes much to a number of people who have Xmade suggestions, fixed bugs, and who have been all-around good sports about Xthe whole thing. Thanks to David Dobkin, Eric Haines, Lefteris Koutsofios, XKen Musgrave, Przemek Prusinkiewicz, and Allan Snider for their encouragement, Xcomments, and willingness to be on the Front Lines. Thanks also to Roman XKuchkuda for providing a base upon which to build. Special thanks to Robert XSkinner for providing the Noise(), DNoise(), and other texturing functions Xand allowing them to be redistributed. X XIf you find any bugs, make any useful extensions, have a nice input Xfile, port rayshade to a new environment, or need assistance understanding a Xparticularly braindamaged section of code, please let me know. I can be most Xeasily reached by email. X XCraig Kolb 10/27/89 Xkolb@yale.edu X XYale University Dept. of Mathematics XP.O. Box 2155 Yale Station XNew Haven, CT 06520-2155 END_OF_FILE if test 5201 -ne `wc -c <'README'`; then echo shar: \"'README'\" unpacked with wrong size! fi # end of 'README' fi if test -f 'References' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'References'\" else echo shar: Extracting \"'References'\" $2965 characters$ sed "s/^X//" >'References' <<'END_OF_FILE' X# X# Publications of particular interest to rayshade-hackers. X# X# Mostly snipped from the Ray Tracing Bibliography assembled by X# Paul Heckbert and Eric Haines. X# X%A Robert L. Cook X%A Thomas Porter X%A Loren Carpenter X%T Distributed Ray Tracing X%J Computer Graphics X(SIGGRAPH '84 Proceedings) X%V 18 X%N 3 X%D July 1984 X%P 137-145 X%Z Monte Carlo distribution of rays to get Xgloss, translucency, penumbras, depth of field, motion blur X%K probabilistic ray tracing, monte carlo, motion blur, stochastic sampling X X%A Robert L. Cook X%T Stochastic Sampling in Computer Graphics X%J ACM Transactions on Graphics X%V 5 X%N 1 X%D Jan. 1986 X%P 51-72 X X%A Akira Fujimoto X%A Takayuki Tanaka X%A Kansei Iwata X%T ARTS: Accelerated Ray-Tracing System X%J IEEE Computer Graphics and Applications X%D Apr. 1986 X%P 16-26 X%K octree X X%A Andrew S. Glassner X%A Jim Arvo X%A Robert L. Cook X%A Eric Haines X%A Pat Hanrahan X%A Paul Heckbert X%A David B. Kirk X%B An Introduction to Ray Tracing X%I Academic Press X%C London X%D 1989 X X%A Eric Haines X%T A Proposal for Standard Graphics Environments X%J IEEE Computer Graphics and Applications X%V 7 X%N 11 X%D Nov. 1987 X%P 3-5 X%K benchmark X%Z renderer benchmarking environments and how to obtain them X X%A Roy Hall X%B Illumination and Color in Computer Generated Imagery X%C New York X%D 1989 X%I Springer-Verlag X X%A Timothy L. Kay X%A James T. Kajiya X%T Ray Tracing Complex Scenes X%J Computer Graphics X(SIGGRAPH '86 Proceedings) X%V 20 X%N 4 X%D Aug. 1986 X%P 269-278 X%K bounding volume X X%A Roman Kuchkuda X%T An Introduction to Ray Tracing X%B Theoretical Foundations of Computer Graphics and CAD X%E R.A. Earnshaw X%I Springer-Verlag X%C Berlin X%D 1988 X%P 1039-1060 X X%A J. P. Lewis X%T Algorithms for Solid Noise Synthesis X%J Computer Graphics X(SIGGRAPH '89 Proceedings) X%V 23 X%N 3 X%D August 1989 X%P 263-270 X X%A Don P. Mitchell X%T Generating Antialiased Images at Low Sampling Densities X%J Computer Graphics X(SIGGRAPH '87 Proceedings) X%V 21 X%N 4 X%D July 1987 X%P 65-72 X X%A F. Kenton Musgrave X%A Craig E. Kolb X%A Robert S. Mace X%T The Synthesis and Rendering of Eroded Fractal Terrains X%J Computer Graphics X(SIGGRAPH '89 Proceedings) X%V 23 X%N 3 X%D July 1989 X%P 41-50 X%Z info on efficiently ray tracing height fields X%K fractal, height fields X X%A Ken Perlin X%T An Image Synthesizer X%J Computer Graphics X(SIGGRAPH '85 Proceedings) X%V 19 X%N 3 X%D July 1985 X%P 287-296 X X%A David F. Rogers X%B Procedural Elements for Computer Graphics X%I McGraw-Hill X%C New York X%D 1985 X%Z the only book on image synthesis, good summary of ray tracing X X%A John M. Snyder X%A Alan H. Barr X%T Ray Tracing Complex Models Containing Surface Tessellations X%J Computer Graphics X(SIGGRAPH '87 Proceedings) X%V 21 X%N 4 X%D July 1987 X%P 119-128 X%Z If you only read one paper before modifying rayshade, make it this one. X%K parametric surface, tessellation, 3D grid X X%A Turner Whitted X%T An Improved Illumination Model for Shaded Display X%J CACM X%V 23 X%N 6 X%D June 1980 X%P 343-349 X%Z the classic ray tracing paper END_OF_FILE if test 2965 -ne `wc -c <'References'`; then echo shar: \"'References'\" unpacked with wrong size! fi # end of 'References' fi if test -f 'TODO' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'TODO'\" else echo shar: Extracting \"'TODO'\" $1259 characters$ sed "s/^X//" >'TODO' <<'END_OF_FILE' XAdd CSG. X XMake "distributed ray tracing" implementation more complete. Sample for Xdepth of field, gloss, etc. X XKeep track of maxt for a given ray and pass it to the various Xintersection routines. For example, we can stop traversing a height Xfield grid if the ray hasn't hit the height field by the time we're X"maxt" along the ray. X XKeep track of the primitives hit for (at least a portion of) the ray Xtree. When spawaning a new ray, check for intersection with the primitive Xlast hit by the corresponding ray in the saved tree. If it hits, you have a Xvalue for "maxt" for the above. X XMake heightfields be stored in fixed-point, and take care of byte-ordering Xproblems so that height fields are transportable from machine to machine. X XImplement something similar to Jevans & Wyvill's adaptive subdivision scheme. X XAdd better antialiasing (e.g., Mitchell's paper). X XAdd a better way to do continue an interrupted trace. There should be code Xin rayshade to find the number of the last line traced and start from Xthere. X XAdd an option to perform sorting during ray/List intersection tests so Xwe test objects roughly in order. X XImprove handling of input files (error messages, #include directives, etc.). X XHave workers pass statistics back to the supervisor. END_OF_FILE if test 1259 -ne `wc -c <'TODO'`; then echo shar: \"'TODO'\" unpacked with wrong size! fi # end of 'TODO' fi if test ! -d 'doc' ; then echo shar: Creating directory \"'doc'\" mkdir 'doc' fi if test ! -d 'src' ; then echo shar: Creating directory \"'src'\" mkdir 'src' fi if test -f 'src/atmosphere.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'src/atmosphere.c'\" else echo shar: Extracting \"'src/atmosphere.c'\" $2223 characters$ sed "s/^X//" >'src/atmosphere.c' <<'END_OF_FILE' X/* X * atmosphere.c X * X * Copyright (C) 1989, Craig E. Kolb X * X * This software may be freely copied, modified, and redistributed, X * provided that this copyright notice is preserved on all copies. X * X * There is no warranty or other guarantee of fitness for this software, X * it is provided solely . Bug reports or fixes may be sent X * to the author, who may or may not act on them as he desires. X * X * You may not include this software in a program or other software product X * without supplying the source, or without informing the end-user that the X * source is available for no extra charge. X * X * If you modify this software, you should include a notice giving the X * name of the person performing the modification, the date of modification, X * and the reason for such modification. X * X * $Id: atmosphere.c,v 3.0 89/10/27 02:05:46 craig Exp $ X * X * $Log: atmosphere.c,v $ X * Revision 3.0 89/10/27 02:05:46 craig X * Baseline for first official release. X * X */ X#include <stdio.h> X#include <math.h> X#include "typedefs.h" X#include "constants.h" X#include "funcdefs.h" X XFog *GlobalFog; XMist *GlobalMist; X X/* X * Add fog to the given color. X */ XComputeFog(fog, dist, color) XFog *fog; Xdouble dist; XColor *color; X{ X double atten; X X atten = LNHALF * dist * fog->trans; X if (atten < -10.) X atten = 0.; X else X atten = exp(atten); X blend_color(color, &fog->color, atten, 1. - atten); X} X X/* X * Add low-altitude mist to the given color. X */ XComputeMist(mist, origin, hit, dist, color) XMist *mist; XVector *origin, *hit; Xdouble dist; XColor *color; X{ X double deltaZ, d, atten; X X deltaZ = mist->scale * (hit->z - origin->z); X if (abs(deltaZ) > EPSILON) X d = (exp(-origin->z*mist->scale + mist->zero) - X exp(-hit->z*mist->scale + mist->zero)) / deltaZ; X else X d = exp(-hit->z*mist->scale + mist->zero); X d *= LNHALF * dist; X atten = d / mist->trans.r; X atten = (atten < -10. ? (0.) : exp(atten)); X color->r = atten*color->r + (1. - atten)*mist->color.r; X X atten = d / mist->trans.g; X atten = (atten < -10. ? (0.) : exp(atten)); X color->g = atten*color->g + (1. - atten)*mist->color.g; X X atten = d / mist->trans.b; X atten = (atten < -10. ? (0.) : exp(atten)); X color->b = atten*color->b + (1. - atten)*mist->color.b; X} END_OF_FILE if test 2223 -ne `wc -c <'src/atmosphere.c'`; then echo shar: \"'src/atmosphere.c'\" unpacked with wrong size! fi # end of 'src/atmosphere.c' fi if test -f 'src/box.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'src/box.c'\" else echo shar: Extracting \"'src/box.c'\" $3148 characters$ sed "s/^X//" >'src/box.c' <<'END_OF_FILE' X/* X * box.c X * X * Copyright (C) 1989, Craig E. Kolb X * X * This software may be freely copied, modified, and redistributed, X * provided that this copyright notice is preserved on all copies. X * X * There is no warranty or other guarantee of fitness for this software, X * it is provided solely . Bug reports or fixes may be sent X * to the author, who may or may not act on them as he desires. X * X * You may not include this software in a program or other software product X * without supplying the source, or without informing the end-user that the X * source is available for no extra charge. X * X * If you modify this software, you should include a notice giving the X * name of the person performing the modification, the date of modification, X * and the reason for such modification. X * X * $Id: box.c,v 3.0 89/10/27 02:05:47 craig Exp $ X * X * $Log: box.c,v $ X * Revision 3.0 89/10/27 02:05:47 craig X * Baseline for first official release. X * X */ X#include <math.h> X#include <stdio.h> X#include "constants.h" X#include "typedefs.h" X#include "funcdefs.h" X XObject * Xmakbox(surf, x, y, z, xs, ys, zs) Xchar *surf; Xdouble x, y, z, xs, ys, zs; X{ X Box *box; X Primitive *prim; X Object *newobj; X extern int Quiet, yylineno; X X if (xs < EPSILON || ys < EPSILON || zs < EPSILON) { X if (!Quiet) X fprintf(stderr,"Degenerate box (line %d)\n",yylineno); X return (Object *)0; X } X prim = mallocprim(); X prim->surf = find_surface(surf); X newobj = new_object(NULL, BOX, (char *)prim, (Trans *)NULL); X prim->type = BOX; X box = (Box *)Malloc(sizeof(Box)); X prim->objpnt.p_box = box; X box->bounds[LOW][X] = x - xs; X box->bounds[HIGH][X] = x + xs; X box->bounds[LOW][Y] = y - ys; X box->bounds[HIGH][Y] = y + ys; X box->bounds[LOW][Z] = z - zs; X box->bounds[HIGH][Z] = z + zs; X return newobj; X} X Xdouble Xintbox(pos, ray, obj) XVector *ray; /* ray vector */ XVector *pos; /* origin of ray */ XPrimitive *obj; /* box description */ X{ X Ray tmpray; X extern unsigned long BVTests, primtests[]; X X /* X * IntBounds will increment BVTests, even though we're X * not really doing a BV intersection test. X */ X primtests[BOX]++; X BVTests--; X tmpray.pos = *pos; X tmpray.dir = *ray; X return IntBounds(&tmpray, obj->objpnt.p_box->bounds); X} X Xnrmbox(pos, obj, nrm) XVector *pos, *nrm; /* point of intersection */ XPrimitive *obj; /* box description */ X{ X Box *box; X X box = obj->objpnt.p_box; X nrm->x = nrm->y = nrm->z = 0.; X X if (equal(pos->x, box->bounds[HIGH][X])) X nrm->x = 1.; X else if (equal(pos->x, box->bounds[LOW][X])) X nrm->x = -1.; X else if (equal(pos->y, box->bounds[HIGH][Y])) X nrm->y = 1.; X else if (equal(pos->y, box->bounds[LOW][Y])) X nrm->y = -1.; X else if (equal(pos->z, box->bounds[HIGH][Z])) X nrm->z = 1.; X else if (equal(pos->z, box->bounds[LOW][Z])) X nrm->z = -1.; X else X fprintf(stderr,"Nrmbox: confusion!\n"); X} X Xboxextent(o, bounds) XPrimitive *o; Xdouble bounds[2][3]; X{ X Box *b = o->objpnt.p_box; X X bounds[LOW][X] = b->bounds[LOW][X]; X bounds[HIGH][X] = b->bounds[HIGH][X]; X bounds[LOW][Y] = b->bounds[LOW][Y]; X bounds[HIGH][Y] = b->bounds[HIGH][Y]; X bounds[LOW][Z] = b->bounds[LOW][Z]; X bounds[HIGH][Z] = b->bounds[HIGH][Z]; X} END_OF_FILE if test 3148 -ne `wc -c <'src/box.c'`; then echo shar: \"'src/box.c'\" unpacked with wrong size! fi # end of 'src/box.c' fi if test -f 'src/constants.h' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'src/constants.h'\" else echo shar: Extracting \"'src/constants.h'\" $2403 characters$ sed "s/^X//" >'src/constants.h' <<'END_OF_FILE' X/* X * constants.h X * X * Copyright (C) 1989, Craig E. Kolb X * X * This software may be freely copied, modified, and redistributed, X * provided that this copyright notice is preserved on all copies. X * X * There is no warranty or other guarantee of fitness for this software, X * it is provided solely . Bug reports or fixes may be sent X * to the author, who may or may not act on them as he desires. X * X * You may not include this software in a program or other software product X * without supplying the source, or without informing the end-user that the X * source is available for no extra charge. X * X * If you modify this software, you should include a notice giving the X * name of the person performing the modification, the date of modification, X * and the reason for such modification. X * X * $Id: constants.h,v 3.0 89/10/27 02:05:48 craig Exp $ X * X * $Log: constants.h,v $ X * Revision 3.0 89/10/27 02:05:48 craig X * Baseline for first official release. X * X */ X X#define LIGHTS 10 /* Max # of lights */ X X/* X * Primitive type constants. When adding primitives, insert *before* X * "LIST" and increment LIST and GRID values, otherwise arrays of X * intersection/normal/extent routines in intersect.c won't be indexed X * correctly. X */ X#define SPHERE 0 X#define BOX 1 X#define TRIANGLE 2 X#define SUPERQ 3 X#define PLANE 4 X#define CYL 5 X#define POLY 6 X#define PHONGTRI 7 X#define CONE 8 X#define HF 9 X#define LIST 10 X#define GRID 11 X X#define PRIMTYPES 10 /* # of types of primitives */ X X#define TRUE 1 X#define FALSE 0 X X/* X * Used to make indices into bounding box arrays more readable. X */ X#define X 0 X#define Y 1 X#define Z 2 X#define LOW 0 X#define HIGH 1 X X/* X * Light source types X */ X#define LOCAL (char)1 X#define DIRECTIONAL (char)2 X#define EXTENDED (char)3 X X/* X * Various useful constants and macros. X */ X#define PI 3.14159265358979323846 X#define deg2rad(x) (double)(PI * x / 180.) X#define LNHALF (-.69314718) X/* X * Minimum vector length X */ X#define EPSILON (double)0.00001 X X/* X * Maximum intersection-point distance. (Making the "world" a sphere of radius X * FAR_AWAY centered at eyep.) X */ X#define FAR_AWAY 1.0E+14 X X/* X * Constants used in triangle & polygon intersection tests. X */ X#define XNORMAL (char)0 X#define YNORMAL (char)1 X#define ZNORMAL (char)2 X X/* X * Constants for Stereo mode X */ X#define LEFT 1 X#define RIGHT 2 X X#ifndef NULL X# define NULL 0 X#endif X X#define UNSET -1 END_OF_FILE if test 2403 -ne `wc -c <'src/constants.h'`; then echo shar: \"'src/constants.h'\" unpacked with wrong size! fi # end of 'src/constants.h' fi if test -f 'src/defaults.h' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'src/defaults.h'\" else echo shar: Extracting \"'src/defaults.h'\" $1642 characters$ sed "s/^X//" >'src/defaults.h' <<'END_OF_FILE' X/* X * defaults.h X * X * Copyright (C) 1989, Craig E. Kolb X * X * This software may be freely copied, modified, and redistributed, X * provided that this copyright notice is preserved on all copies. X * X * There is no warranty or other guarantee of fitness for this software, X * it is provided solely . Bug reports or fixes may be sent X * to the author, who may or may not act on them as he desires. X * X * You may not include this software in a program or other software product X * without supplying the source, or without informing the end-user that the X * source is available for no extra charge. X * X * If you modify this software, you should include a notice giving the X * name of the person performing the modification, the date of modification, X * and the reason for such modification. X * X * $Id: defaults.h,v 3.0 89/10/27 02:05:49 craig Exp $ X * X * $Log: defaults.h,v $ X * Revision 3.0 89/10/27 02:05:49 craig X * Baseline for first official release. X * X */ X X#define DEFLIGHTSAMPLES 4 /* sqrt of number of shadow rays per pixel */ X X#define XRESOLUTION 512 /* Default screen size (pixels) */ X#define YRESOLUTION 512 X#define DEFCUTOFF 0.001 /* Default tree cutoff value */ X#define MAXLEVEL 3 /* Maximum ray tree depth. */ X#define PIXEL_DIV 1 /* Maximum pixel subdivision factor */ X#define HFOV 45 /* Field-of-view */ X#define EYEX 0 /* Eye position */ X#define EYEY 20 X#define EYEZ 0 X#define LOOKX 0 /* Look point */ X#define LOOKY 0 X#define LOOKZ 0 X#define UPX 0 /* Up vector */ X#define UPY 0 X#define UPZ 1 X X#define DEFREDCONT 0.25 /* Default contrast threshold values. */ X#define DEFGREENCONT 0.2 X#define DEFBLUECONT 0.4 END_OF_FILE if test 1642 -ne `wc -c <'src/defaults.h'`; then echo shar: \"'src/defaults.h'\" unpacked with wrong size! fi # end of 'src/defaults.h' fi if test -f 'src/input_lex.l' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'src/input_lex.l'\" else echo shar: Extracting \"'src/input_lex.l'\" $2960 characters$ sed "s/^X//" >'src/input_lex.l' <<'END_OF_FILE' X/* input_lex.l */ X/* */ X/* Copyright (C) 1989, Craig E. Kolb */ X/* */ X/* This software may be freely copied, modified, and redistributed, */ X/* provided that this copyright notice is preserved on all copies. */ X/* */ X/* There is no warranty or other guarantee of fitness for this software, */ X/* it is provided solely "as is". Bug reports or fixes may be sent */ X/* to the author, who may or may not act on them as he desires. */ X/* */ X/* You may not include this software in a program or other software product */ X/* without supplying the source, or without informing the end-user that the */ X/* source is available for no extra charge. */ X/* */ X/* $Id: input_lex.l,v 3.0 89/10/27 02:05:52 craig Exp $ */ X%{ X#include <stdio.h> X#ifdef SYSV X#include <string.h> X#else X#include <strings.h> X#endif X#include "typedefs.h" X#include "y.tab.h" Xdouble atof(); Xchar *strsave(); X%} Xalpha [a-zA-Z] Xspecial [\.\_-] Xdigit [0-9] Xexp [Ee][-+]?{digit}+ Xstring ({alpha}|"/")({alpha}|{digit}|{special}|"/")* X%p 3000 X%% X" " ; X\t ; X\n ; X"/*" {skipcomments();} Xadaptive {return(tADAPTIVE);} Xbackground {return(tBACKGROUND);} Xblotch {return(tBLOTCH);} Xbox {return(tBOX);} Xbump {return(tBUMP);} Xchecker {return(tCHECKER);} Xcone {return(tCONE);} Xcontrast {return(tCONTRAST);} Xcutoff {return(tCUTOFF);} Xcylinder {return(tCYL);} Xdefend {return(tENDDEF);} Xdefine {return(tSTARTDEF);} Xdirectional {return(tDIRECTIONAL);} Xendfile {return(tENDFILE);} Xextended {return(tEXTENDED);} Xeyep {return(tEYEP);} Xfbm {return(tFBM);} Xfbmbump {return(tFBMBUMP);} Xfog {return(tFOG);} Xfov {return(tFOV);} Xgrid {return(tGRID);} Xheightfield {return(tHEIGHTFIELD);} Xjittered {return(tJITTERED);} Xlight {return(tLIGHT);} Xlist {return(tLIST);} Xlookp {return(tLOOKP);} Xmarble {return(tMARBLE);} Xmaxdepth {return(tMAXDEPTH);} Xmist {return(tMIST);} Xobject {return(tOBJECT);} Xoutfile {return(tOUTFILE);} Xplane {return(tPLANE);} Xpoint {return(tPOINT);} Xpoly {return(tPOLY);} Xresolution {return(tRESOLUTION);} Xrotate {return(tROTATE);} Xsamples {return(tSAMPLES);} Xscale {return(tSCALE);} Xscreen {return(tSCREEN);} Xsphere {return(tSPHERE);} Xsuperq {return(tSUPERQ);} Xsurface {return(tSURFACE);} Xtexture {return(tTEXTURE);} Xtransform {return(tTRANSFORM);} Xtranslate {return(tTRANSLATE);} Xtriangle {return(tTRIANGLE);} Xup {return(tUP);} Xwood {return(tWOOD);} X{string} {yylval.c = strsave(yytext); X return(tSTRING);} X[+-]?{digit}+ {yylval.i = atoi(yytext); X return(tINT);} X X[+-]?{digit}+"."{digit}*({exp})? | X[+-]?{digit}*"."{digit}+({exp})? | X[+-]?{digit}+{exp} {yylval.d = atof(yytext); return(tFLOAT);} X X. {return yytext[0];} X X%% Xyywrap() {return(1);} X/* X * Skip over comments. X */ Xskipcomments() X{ X char c; X X while (1) { X while (input() != '*') X ; X if ((c = input()) == '/') X return; X unput(c); X } X} END_OF_FILE if test 2960 -ne `wc -c <'src/input_lex.l'`; then echo shar: \"'src/input_lex.l'\" unpacked with wrong size! fi # end of 'src/input_lex.l' fi if test -f 'src/memory.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'src/memory.c'\" else echo shar: Extracting \"'src/memory.c'\" $1596 characters$ sed "s/^X//" >'src/memory.c' <<'END_OF_FILE' X/* X * memory.c X * X * Copyright (C) 1989, Craig E. Kolb X * X * This software may be freely copied, modified, and redistributed, X * provided that this copyright notice is preserved on all copies. X * X * There is no warranty or other guarantee of fitness for this software, X * it is provided solely . Bug reports or fixes may be sent X * to the author, who may or may not act on them as he desires. X * X * You may not include this software in a program or other software product X * without supplying the source, or without informing the end-user that the X * source is available for no extra charge. X * X * If you modify this software, you should include a notice giving the X * name of the person performing the modification, the date of modification, X * and the reason for such modification. X * X * $Id: memory.c,v 3.0 89/10/27 02:05:56 craig Exp $ X * X * $Log: memory.c,v $ X * Revision 3.0 89/10/27 02:05:56 craig X * Baseline for first official release. X * X */ X#include <stdio.h> X#include "typedefs.h" X#include "funcdefs.h" X Xunsigned long TotalAllocated; X Xchar * XMalloc(bytes) Xunsigned bytes; X{ X char *res, *malloc(); X X TotalAllocated += bytes; X X res = malloc(bytes); X if (res == (char *)0) { X fprintf(stderr,"Out of memory trying to allocate %d bytes.\n"); X exit(0); X } X return res; X} X Xchar * XCalloc(nelem, elen) Xunsigned nelem, elen; X{ X char *res; X X res = Malloc(nelem*elen); X#ifdef SYSV X memset(res, (char)0, nelem*elen); X#else X bzero(res, nelem*elen); X#endif X return res; X} X XPrintMemoryStats() X{ X extern FILE *fstats; X X fprintf(fstats,"Total memory allocated:\t\t%d bytes\n",TotalAllocated); X} END_OF_FILE if test 1596 -ne `wc -c <'src/memory.c'`; then echo shar: \"'src/memory.c'\" unpacked with wrong size! fi # end of 'src/memory.c' fi if test -f 'src/patchlevel.h' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'src/patchlevel.h'\" else echo shar: Extracting \"'src/patchlevel.h'\" $21 characters$ sed "s/^X//" >'src/patchlevel.h' <<'END_OF_FILE' X#define PATCHLEVEL 0 END_OF_FILE if test 21 -ne `wc -c <'src/patchlevel.h'`; then echo shar: \"'src/patchlevel.h'\" unpacked with wrong size! fi # end of 'src/patchlevel.h' fi if test -f 'src/plane.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'src/plane.c'\" else echo shar: Extracting \"'src/plane.c'\" $2370 characters$ sed "s/^X//" >'src/plane.c' <<'END_OF_FILE' X/* X * plane.c X * X * Copyright (C) 1989, Craig E. Kolb X * X * This software may be freely copied, modified, and redistributed, X * provided that this copyright notice is preserved on all copies. X * X * There is no warranty or other guarantee of fitness for this software, X * it is provided solely . Bug reports or fixes may be sent X * to the author, who may or may not act on them as he desires. X * X * You may not include this software in a program or other software product X * without supplying the source, or without informing the end-user that the X * source is available for no extra charge. X * X * If you modify this software, you should include a notice giving the X * name of the person performing the modification, the date of modification, X * and the reason for such modification. X * X * $Id: plane.c,v 3.0 89/10/27 02:05:59 craig Exp $ X * X * $Log: plane.c,v $ X * Revision 3.0 89/10/27 02:05:59 craig X * Baseline for first official release. X * X */ X#include <stdio.h> X#include "constants.h" X#include "typedefs.h" X#include "funcdefs.h" X X/* X * create plane Primitive X */ XObject * Xmakplane(surf, norm, pos) Xchar *surf; XVector *norm, *pos; X{ X Plane *plane; X Vector tmpnrm; X Object *newobj; X Primitive *prim; X extern int Quiet, yylineno; X X tmpnrm = *norm; X if (normalize(&tmpnrm) == 0.) { X if (!Quiet) X fprintf(stderr, "Degenerate plane normal (line %d)\n", X yylineno); X return (Object *)0; X } X prim = mallocprim(); X prim->surf = find_surface(surf); X prim->type = PLANE; X newobj = new_object(NULL, PLANE, (char *)prim, (Trans *)NULL); X plane = (Plane *)Malloc(sizeof(Plane)); X prim->objpnt.p_plane = plane; X plane->norm = tmpnrm; X plane->d = dotp(&plane->norm, pos); X X return newobj; X} X Xdouble Xintplane(pos, ray, obj) XVector *pos; XVector *ray; XPrimitive *obj; X{ X Plane *plane; X double denom, dist; X extern unsigned long primtests[]; X X primtests[PLANE]++; X plane = obj->objpnt.p_plane; X X denom = dotp(&plane->norm, ray); X if (denom == 0.) X return 0.; X dist = (plane->d - dotp(&plane->norm, pos)) / denom; X return (dist > FAR_AWAY ? 0. : dist); X} X X/*ARGSUSED*/ Xnrmplane(pos, obj, nrm) XVector *pos, *nrm; XPrimitive *obj; X{ X *nrm = obj->objpnt.p_plane->norm; X} X X/*ARGSUSED*/ Xplaneextent(o, bounds) XPrimitive *o; Xdouble bounds[2][3]; X{ X /* X * Planes are unbounded by nature. minx > maxx signifies X * this. X */ X bounds[LOW][X] = 1.0; X bounds[HIGH][X] = -1.0; X} END_OF_FILE if test 2370 -ne `wc -c <'src/plane.c'`; then echo shar: \"'src/plane.c'\" unpacked with wrong size! fi # end of 'src/plane.c' fi if test -f 'src/raymath.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'src/raymath.c'\" else echo shar: Extracting \"'src/raymath.c'\" $3147 characters$ sed "s/^X//" >'src/raymath.c' <<'END_OF_FILE' X/* X * raymath.c X * X * Copyright (C) 1989, Craig E. Kolb X * X * This software may be freely copied, modified, and redistributed, X * provided that this copyright notice is preserved on all copies. X * X * There is no warranty or other guarantee of fitness for this software, X * it is provided solely . Bug reports or fixes may be sent X * to the author, who may or may not act on them as he desires. X * X * You may not include this software in a program or other software product X * without supplying the source, or without informing the end-user that the X * source is available for no extra charge. X * X * If you modify this software, you should include a notice giving the X * name of the person performing the modification, the date of modification, X * and the reason for such modification. X * X * $Id: raymath.c,v 3.0 89/10/27 02:06:01 craig Exp $ X * X * $Log: raymath.c,v $ X * Revision 3.0 89/10/27 02:06:01 craig X * Baseline for first official release. X * X */ X#include <math.h> X#include "typedefs.h" X#include "constants.h" X#include "funcdefs.h" X X/* X * Normalize a vector, return original length. X */ Xdouble Xnormalize(a) Xregister Vector *a; X{ X double d; X X d = sqrt(a->x*a->x + a->y*a->y + a->z*a->z); X if(d == 0.) X return 0.; X a->x /= d; X a->y /= d; X a->z /= d; X return d; X} X X/* X * Compute cross-product of a and b, place normalized result in o. Returns X * length of result before normalization. X */ Xdouble Xcrossp(o, a, b) XVector *o, *a, *b; X{ X rawcrossp(o, a, b); X return normalize(o); X} X X/* X * Compute cross-product of a and b, place result in o. X */ Xrawcrossp(o, a, b) XVector *o, *a, *b; X{ X o->x = (a->y * b->z) - (a->z * b->y); X o->y = (a->z * b->x) - (a->x * b->z); X o->z = (a->x * b->y) - (a->y * b->x); X} X X/* X * Calculate direction of refracted ray using Heckbert's formula. Returns TRUE X * if a total internal reflection occurs. X */ Xrefract(dir, from_index, to_index, I, N, cos1) Xdouble from_index, to_index, cos1; XVector *dir, I, N; X{ X double kn, cos2, k; X X if (cos1 < 0.) { X /* X * Hit the 'backside' of a surface -- flip the X * normal. X */ X N.x = -N.x; X N.y = -N.y; X N.z = -N.z; X cos1 = -cos1; X } X X kn = from_index / to_index; X cos2 = 1. - kn*kn*(1. - cos1*cos1); X if (cos2 < 0.) X return TRUE; /* Total internal reflection. */ X k = kn * cos1 - sqrt(cos2); X veccomb(kn, I, k, N, dir); X return FALSE; X} X X#ifdef DUMB_CPP X/* X * Return difference between two vectors. X */ Xvecsub(a, b, res) XVector a, b, *res; X{ X res->x = a.x - b.x; X res->y = a.y - b.y; X res->z = a.z - b.z; X} X X/* X * Return sum of two vectors. X */ Xvecadd(a, b, res) XVector a, b, *res; X{ X res->x = a.x + b.x; X res->y = a.y + b.y; X res->z = a.z + b.z; X} X X/* X * Compute scalar product of a vector. X */ Xscalar_prod(scale, vec, res) Xdouble scale; XVector vec, *res; X{ X res->x = vec.x * scale; X res->y = vec.y * scale; X res->z = vec.z * scale; X} X Xveccomb(s1, v1, s2, v2, res) Xdouble s1, s2; XVector v1, v2, *res; X{ X res->x = s1 * v1.x + s2 * v2.x; X res->y = s1 * v1.y + s2 * v2.y; X res->z = s1 * v1.z + s2 * v2.z; X} X Xaddscaledvec(v1, s, v2, res) XVector v1, v2, *res; Xdouble s; X{ X res->x = v1.x + s * v2.x; X res->y = v1.y + s * v2.y; X res->z = v1.z + s * v2.z; X} X#endif END_OF_FILE if test 3147 -ne `wc -c <'src/raymath.c'`; then echo shar: \"'src/raymath.c'\" unpacked with wrong size! fi # end of 'src/raymath.c' fi if test -f 'src/raytrace.h' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'src/raytrace.h'\" else echo shar: Extracting \"'src/raytrace.h'\" $1649 characters$ sed "s/^X//" >'src/raytrace.h' <<'END_OF_FILE' X/* X * raytrace.h X * X * Copyright (C) 1989, Craig E. Kolb X * X * This software may be freely copied, modified, and redistributed, X * provided that this copyright notice is preserved on all copies. X * X * There is no warranty or other guarantee of fitness for this software, X * it is provided solely . Bug reports or fixes may be sent X * to the author, who may or may not act on them as he desires. X * X * You may not include this software in a program or other software product X * without supplying the source, or without informing the end-user that the X * source is available for no extra charge. X * X * If you modify this software, you should include a notice giving the X * name of the person performing the modification, the date of modification, X * and the reason for such modification. X * X * $Id: raytrace.h,v 3.0 89/10/27 02:06:03 craig Exp $ X * X * $Log: raytrace.h,v $ X * Revision 3.0 89/10/27 02:06:03 craig X * Baseline for first official release. X * X */ Xtypedef struct { X float x, y, size; /* location and size */ X Color ul, ur, ll, lr; /* Color values of four corners */ X} pixel_square; X Xpixel_square *SquareStack; Xdouble Minsquare; X X/* X * "Dither matrices" used to encode the 'number' of a ray that samples a X * particular portion of a pixel. Hand-coding is ugly, but... X */ Xint OneSample[1] = {0}; Xint TwoSamples[4] = {0, 2, X 3, 1}; Xint ThreeSamples[9]= {0, 2, 7, X 6, 5, 1, X 3, 8, 4}; Xint FourSamples[16] = { 0, 8, 2, 10, X 12, 4, 14, 6, X 3, 11, 1, 9, X 15, 7, 13, 5}; Xint FiveSamples[25] = { 0, 8, 23, 17, 2, X 19, 12, 4, 20, 15, X 3, 21, 16, 9, 6, X 14, 10, 24, 1, 13, X 22, 7, 18, 11, 5}; END_OF_FILE if test 1649 -ne `wc -c <'src/raytrace.h'`; then echo shar: \"'src/raytrace.h'\" unpacked with wrong size! fi # end of 'src/raytrace.h' fi if test -f 'src/texture.h' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'src/texture.h'\" else echo shar: Extracting \"'src/texture.h'\" $1474 characters$ sed "s/^X//" >'src/texture.h' <<'END_OF_FILE' X/* X * texture.h X * X * Copyright (C) 1989, Craig E. Kolb X * X * This software may be freely copied, modified, and redistributed, X * provided that this copyright notice is preserved on all copies. X * X * There is no warranty or other guarantee of fitness for this software, X * it is provided solely . Bug reports or fixes may be sent X * to the author, who may or may not act on them as he desires. X * X * You may not include this software in a program or other software product X * without supplying the source, or without informing the end-user that the X * source is available for no extra charge. X * X * If you modify this software, you should include a notice giving the X * name of the person performing the modification, the date of modification, X * and the reason for such modification. X * X * $Id: texture.h,v 3.0 89/10/27 02:06:06 craig Exp $ X * X * $Log: texture.h,v $ X * Revision 3.0 89/10/27 02:06:06 craig X * Baseline for first official release. X * X */ X X#define CHECKER 0 /* Checkerboard */ X#define BLOTCH 1 /* Color blotches */ X#define BUMP 2 /* Bump mapping */ X#define MARBLE 3 /* marble texture */ X#define FBM 4 /* fBm texture */ X#define FBMBUMP 5 /* fBm bump map */ X#define WOOD 6 X XTexture *NewCheckText(), *NewBlotchText(), *NewBumpText(), *NewMarbleText(); XTexture *NewfBmText(), *NewfBmBumpText(); XTexture *NewWoodText(); X/* X * Texturing routines. X */ Xint CheckerText(), BlotchText(), BumpText(), MarbleText(), fBmText(); Xint fBmBumpText(), WoodText(); END_OF_FILE if test 1474 -ne `wc -c <'src/texture.h'`; then echo shar: \"'src/texture.h'\" unpacked with wrong size! fi # end of 'src/texture.h' fi if test -f 'src/typedefs.h' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'src/typedefs.h'\" else echo shar: Extracting \"'src/typedefs.h'\" $1750 characters$ sed "s/^X//" >'src/typedefs.h' <<'END_OF_FILE' X/* X * typedefs.h X * X * Copyright (C) 1989, Craig E. Kolb X * X * This software may be freely copied, modified, and redistributed, X * provided that this copyright notice is preserved on all copies. X * X * There is no warranty or other guarantee of fitness for this software, X * it is provided solely . Bug reports or fixes may be sent X * to the author, who may or may not act on them as he desires. X * X * You may not include this software in a program or other software product X * without supplying the source, or without informing the end-user that the X * source is available for no extra charge. X * X * If you modify this software, you should include a notice giving the X * name of the person performing the modification, the date of modification, X * and the reason for such modification. X * X * $Id: typedefs.h,v 3.0 89/10/27 02:06:07 craig Exp $ X * X * $Log: typedefs.h,v $ X * Revision 3.0 89/10/27 02:06:07 craig X * Baseline for first official release. X * X */ X#include "datatypes.h" X#include "primobj.h" X X/* X * Light definition. X */ Xtypedef struct { X char type; /* Light source type */ X Vector pos; /* Position / direction */ X Color color; /* Color (always normalized) */ X double radius; /* Radius (for extended sources) */ X Primitive **cache; X TransInfo *trans; X} Light; X X/* X * Object node definition X */ Xtypedef struct Object { X char *name; /* Object name, if any. */ X char type; /* Type (grid, list, sphere, cone...) */ X char *data; /* Pointer to list/grid/primitive */ X Trans *trans; /* Transformation information */ X double bounds[2][3]; /* Bounding box */ X#ifdef LINDA X unsigned long *counter; X#else X unsigned long counter; /* # of last grid checked against */ X#endif X struct Texture *texture; /* Texture mapping info. */ X} Object; END_OF_FILE if test 1750 -ne `wc -c <'src/typedefs.h'`; then echo shar: \"'src/typedefs.h'\" unpacked with wrong size! fi # end of 'src/typedefs.h' fi if test -f 'src/version.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'src/version.c'\" else echo shar: Extracting \"'src/version.c'\" $1138 characters$ sed "s/^X//" >'src/version.c' <<'END_OF_FILE' X/* X * version.c X * X * Copyright (C) 1989, Craig E. Kolb X * X * This software may be freely copied, modified, and redistributed, X * provided that this copyright notice is preserved on all copies. X * X * There is no warranty or other guarantee of fitness for this software, X * it is provided solely . Bug reports or fixes may be sent X * to the author, who may or may not act on them as he desires. X * X * You may not include this software in a program or other software product X * without supplying the source, or without informing the end-user that the X * source is available for no extra charge. X * X * If you modify this software, you should include a notice giving the X * name of the person performing the modification, the date of modification, X * and the reason for such modification. X * X * $Id: version.c,v 3.0 89/10/27 02:06:08 craig Exp $ X * X * $Log: version.c,v $ X * Revision 3.0 89/10/27 02:06:08 craig X * Baseline for first official release. X * X */ X#include <stdio.h> X#include "patchlevel.h" X Xprint_version() X{ X extern char rcsid[]; X extern FILE *fstats; X X fprintf(fstats,"rayshade: %s\nPatch level %d\n",rcsid, PATCHLEVEL); X} END_OF_FILE if test 1138 -ne `wc -c <'src/version.c'`; then echo shar: \"'src/version.c'\" unpacked with wrong size! fi # end of 'src/version.c' fi if test -f 'src/viewing.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'src/viewing.c'\" else echo shar: Extracting \"'src/viewing.c'\" $2211 characters$ sed "s/^X//" >'src/viewing.c' <<'END_OF_FILE' X/* X * viewing.c X * X * Copyright (C) 1989, Craig E. Kolb X * X * This software may be freely copied, modified, and redistributed, X * provided that this copyright notice is preserved on all copies. X * X * There is no warranty or other guarantee of fitness for this software, X * it is provided solely . Bug reports or fixes may be sent X * to the author, who may or may not act on them as he desires. X * X * You may not include this software in a program or other software product X * without supplying the source, or without informing the end-user that the X * source is available for no extra charge. X * X * If you modify this software, you should include a notice giving the X * name of the person performing the modification, the date of modification, X * and the reason for such modification. X * X * $Id: viewing.c,v 3.0 89/10/27 02:06:08 craig Exp $ X * X * $Log: viewing.c,v $ X * Revision 3.0 89/10/27 02:06:08 craig X * Baseline for first official release. X * X */ X#include <math.h> X#include <stdio.h> X#include "constants.h" X#include "typedefs.h" X#include "funcdefs.h" X XVector lookp, eyep, up, firstray, scrnx, scrny; Xdouble vfov, hfov, Separation; Xint Xres = UNSET, Yres = UNSET, Stereo; Xviewing() X{ X Vector gaze; X double dist, magnitude; X X vecsub(lookp, eyep, &gaze); X firstray = gaze; X X dist = normalize(&gaze); X (void)crossp(&scrnx, &gaze, &up); X (void)crossp(&scrny, &scrnx, &gaze); X dist *= 2.0; X X /* X * Add stereo separation if desired. X */ X if (Stereo) { X if (Stereo == LEFT) X magnitude = -.5 * Separation; X else X magnitude = .5 * Separation; X eyep.x += magnitude * scrnx.x; X eyep.y += magnitude * scrnx.y; X eyep.z += magnitude * scrnx.z; X vecsub(lookp, eyep, &firstray); X gaze = firstray; X dist = normalize(&gaze); X (void)crossp(&scrnx, &gaze, &up); X (void)crossp(&scrny, &scrnx, &gaze); X } X X magnitude = dist * tan(deg2rad(0.5*hfov)) / Xres; X scrnx.x *= magnitude; X scrnx.y *= magnitude; X scrnx.z *= magnitude; X magnitude = dist * tan(deg2rad(0.5*vfov)) / Yres; X scrny.x *= magnitude; X scrny.y *= magnitude; X scrny.z *= magnitude; X X firstray.x += 0.5*Yres*scrny.x - 0.5*Xres*scrnx.x; X firstray.y += 0.5*Yres*scrny.y - 0.5*Xres*scrnx.y; X firstray.z += 0.5*Yres*scrny.z - 0.5*Xres*scrnx.z; X} END_OF_FILE if test 2211 -ne `wc -c <'src/viewing.c'`; then echo shar: \"'src/viewing.c'\" unpacked with wrong size! fi # end of 'src/viewing.c' fi echo shar: End of archive 1 $of 8$. cp /dev/null ark1isdone MISSING="" for I in 1 2 3 4 5 6 7 8 ; do if test ! -f ark${I}isdone ; then MISSING="${MISSING} ${I}" fi done if test "${MISSING}" = "" ; then echo You have unpacked all 8 archives. rm -f ark[1-9]isdone else echo You still need to unpack the following archives: echo " " ${MISSING} fi ## End of shell archive. exit 0